home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 October / Ahoy_Magazine_86-10_1986_Double_L.d64 / Quote Mode (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  202b  |  8 lines
  1. 0 poke53280,0:poke53281,6:poke646,1
  2. 1 rem -- quote mode demo by art shipman --
  3. 2 pk=244 : if len(ds$)=0 then pk=212
  4. 3 q$=chr$(34)
  5. 4 print q$;peek(pk);:goto 4
  6. 5 print q$;:poke pk,0:print peek(pk);:goto 5
  7. 6 print q$;:poke pk,1:print peek(pk);:goto 6
  8.